subroutine r1ai_t1ei_fae(r1, t1, &
              fae, icore, fact)
!
use mod_orbit
use mod_ioff 
implicit none
!
real*8, intent(in) :: fact
real*4, intent(in) :: fae(*)
real*4, intent(in) :: r1(*)
!
real*4, intent(inout) :: t1(*), icore(*)
!
integer :: i, j, a, b, nsize
real*8, external :: dnrm2
!this is to do r1(a,i) = r1(a,i) + fae(ae)*t1(ei)
!==AA
 call VpqmnVmnrs_to_Vpqrs(fae(ifvv(1)), t1(ifvo(1)), 1, 1, & 
            vrta, zorb, 1, vrta, zorb, 1, popa, zorb, 1, &
            r1(ifvo(1)), 1, fact, 1.d0)
!
return
end
